COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	P2VAR
C00004 ENDMK
C⊗;
	TITLE	P2VAR
	ORG	204
;
VRN←350		; device 350, gents
;
; CONO/CONI bits for the VRN (Varian Plotter)
; for the meanings of most of these bits, refer to the
; Varian "SERVICE AND MAINTENANCE MANUAL STATOS 41/42 SERIES PRINTER/PLOTTERS"
;
SCNCMP←←100000	; scan completed	(reado)
NOTRDY←←40000	; device not ready	(reado)
BUFBZY←←20000	; buffer busy		(reado)
PRCBZY←←10000	; paper controller busy	(reado)
FRMBOT←←4000	; bottom of form	(reado)
;     ←←2000	; unused
REDRDY←←1000	; read ready		(reado)
NOTONL←←400	; not on line		(reado)
SUPPLO←←200	; supplies low		(reado)
VIDBZY←←100	; video busy		(reado)
INTTST←←40	; interface test mode	(writo)
DATARQ←←20	; data request		(reado)
INTENA←←10	; interrupt enable	(readw)
PIEN33←←4	; PI bit 33		(readw)
PIEN34←←2	; PI bit 34		(readw)
PIEN35←←1	; PI bit 35		(readw)
;

I←1 ↔ A←2 ↔ B←2 ↔ C←3 ↔ D←4

START:	CONSZ VRN,NOTRDY
	JRST .-1
	HRLZI  I,DATA-DEND
	SETZB	C,D
	
LOOP:   MOVE	D,DATA(I)
	HLRZ	B,D
	LSH	B,-=12
	CAIE	B,77
	JRST	NORML

	HLRZ	C,D
	ANDI	C,7777
	JUMPE	C,NXTWRD
	HRL	D,D

NORML:	CONSO	VRN,DATARQ
	JRST	.-1
	DATAO	VRN,D
        SOJG	C,NORML

NXTWRD:	AOBJN	I,LOOP
	JRST	START
DATA:	
	.INSERT	DSK:VARIAN.DAT[TMP,HPM]
DEND:
        END	START